#!/usr/bin/perl
use strict;
use warnings;
#这里就搞个脚本，专门用来删除传入的行中各种可能的注释情况
#处理C\C++的注释情况。

sub delete_ccpp_code_comment(\@) {
	my @lines = @_;
	foreach(@lines) {
		#首先是去掉//类型的注释
		s/\/{2}.*//g;
		#然后是对一行形式的/**/进行处理
		#首先是去掉/**/之间的/
		s/(?<=\/\*)\w+//g;
		#然后对/*之后或者*/之前的符号进行处理
	}
	foreach(@lines) {
		print;
	}
}

my $argc = @ARGV;
if(@ARGV != 1) {
	print "usage : ./delete_c_cpp_code_comment.plx <file path>.\n"
} else {
	if(!open PROC_FILE,$ARGV[0]) {
		die "bad open file $!";
	} else {
		my @lines = <PROC_FILE>;
		&delete_ccpp_code_comment(@lines);
		close PROC_FILE;
	}
}

